function __test_coef()

	% functie de test pentru functia de aflare a coeficientilor unui polinom Lagrange

	%Testul nr.1
	x=[0 1 2 3]'
	y=[1 1 3 0]'
	a=coef(x,y);
	printf("Coeficientii polinomului Lagrange sunt:\n");
	disp(a);
	
	%solutia este:  a=[1 -3.3333 4.5 -1.1667]'

	%Testul nr.2
	x=[0 1 2 3]'
	y=[-1 0 2 1]'
	a=coef(x,y);
	printf("Coeficientii polinomului Lagrange sunt:\n");
	disp(a);
	
	%solutia este:  a=[-1 -0.83333  2.5 -0.66667]'


	%Testul nr.3
	x=[1 2 4]'
	y=[3 4 6]'
	a=coef(x,y);
	printf("Coeficientii polinomului Lagrange sunt:\n");
	disp(a);
	
	%solutia este:  a=[2 1 0]'
	
	%Testul nr.4
	x=[1 2 3]'
	y=[5 -1 4]'
	a=coef(x,y);
	printf("Coeficientii polinomului Lagrange sunt:\n");
	disp(a);
	
	%solutia este:  a=[22 -22.5 5.5]'

	%Testul nr.5
	x=[-1 0 1 2]'
	y=[-2 -1 2 4]'
	a=coef(x,y);
	printf("Coeficientii polinomului Lagrange sunt:\n");
	disp(a);
	
	%solutia este:  a=[-1 2.5 1 -0.5]';

endfunction
